home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / piblist.arc / GLOBTYPE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-03-21  |  611 b   |  21 lines
  1.                         (* Global Declarations *)
  2. CONST
  3.  
  4.                    (* 8086/8088 hardware flags *)
  5.  
  6.    Carry_Flag     = 1;
  7.    Parity_Flag    = 4;
  8.    Aux_Carry_Flag = 16;
  9.    Zero_Flag      = 64;
  10.    Sign_Flag      = 128;
  11.  
  12. TYPE
  13.  
  14.    AnyStr  = STRING[255]  (* Matches any string for parameter passing *);
  15.  
  16.    Regpack = RECORD       (* 8086/8088 registers                      *)
  17.                 CASE INTEGER OF
  18.                    1: ( Ax, Bx, Cx, Dx, Bp, Si, Di, Ds, Es, Flags : INTEGER );
  19.                    2: ( Al, Ah, Bl, Bh, Cl, Ch, Dl, Dh            : BYTE    );
  20.              END;
  21.